home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33b.d64 / basic-line maker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  49 lines
  1. 100 REM ********************
  2. 110 REM *  HUA PHUOC CAN   *
  3. 120 REM * ALTE JOSEFSTR.15 *
  4. 130 REM *   4450 LINGEN    *
  5. 140 REM *  TEL.0591/74567  *
  6. 150 REM *------------------*
  7. 160 REM * BASIC-LINE MAKER *
  8. 170 REM *     17.10.86     *
  9. 180 REM ********************
  10. 190 DIMD(80):B%=2049:POKE53280,0:POKE53281,0
  11. 200 FORI=0TO7:READQ:POKE704+I,Q:NEXT
  12. 210 INPUT"[147][158]ZEILENNUMMER:";ZE
  13. 220 INPUT"KOMMENTAR:";K$
  14. 230 INPUT"ANFANGSADRESSE:";AN
  15. 240 INPUT"ENDADRESSE+1  :";EN
  16. 250 INPUT"STARTADRESSE  :";SA
  17. 260 PRINT" FEHLERFREI ? "
  18. 270 GETA$:IFA$=""GOTO270
  19. 280 IFA$<>"J"GOTO210
  20. 290 :
  21. 300 REM === BASIC-ZEILE 'BAZ'===
  22. 310 K$=STR$(B%+14+LEN(K$))+":"+K$
  23. 320 FORI=1TOLEN(K$):D(I+4)=ASC(MID$(K$,I,1)):NEXT:I0=I
  24. 330 H=LEN(K$)+B%+6
  25. 340 D(1)=INT(H/256):D(0)=H-D(1)*256
  26. 350 D(3)=INT(ZE/256):D(2)=ZE-D(3)*256
  27. 360 D(4)=158
  28. 370 FORI=B%TOB%+I0+6:POKEI,D(I-B%):NEXT
  29. 380 :
  30. 390 REM === COPY-ROUTINE 'COR'===
  31. 400 REM === 'BAZ'+'COR'       ===
  32. 410 FORII=ITOI+29:READQ:POKEII,Q:NEXT
  33. 420 PL=II+EN-AN
  34. 430 POKEI+3,INT(II/256):POKEI+1,II-PEEK(I+3)*256
  35. 440 POKEI+11,INT(PL/256):POKEI+9,PL-PEEK(I+11)*256
  36. 450 POKEI+19,INT(EN/256):POKEI+17,EN-PEEK(I+19)*256
  37. 460 POKEI+29,INT(SA/256):POKEI+28,SA-PEEK(I+29)*256
  38. 470 :
  39. 480 REM === 'BAZ'+'COR'+'MCP' ===
  40. 490 POKE781,INT(AN/256):POKE780,AN-PEEK(781)*256
  41. 500 POKE91,PEEK(I+19):POKE90,PEEK(I+17)
  42. 510 POKE89,PEEK(I+11):POKE88,PEEK(I+9)
  43. 520 REM === BASIC-ENDADRESSE ===
  44. 530 POKE46,PEEK(89):POKE45,PEEK(88)
  45. 540 SYS704
  46. 550 DATA133,95,134,96,32,191,163,
  47. 560 DATA169,255,160,255,133,95,132,96,169,255,160,255,133,90,132,91,169,255
  48. 570 DATA160,255,133,88,132,89,32,191,163,76,,
  49.